FitWelLAB

Auteur

Affiliation

Dr Philippe MICHEL

USRC - Hôpital NOVO

Impact de la section associative et sportive Section Athlé-NOVO sur le bien-être au travail des agents de l’hôpital NOVO

Code

library(tidyverse)
library(readODS)
library(labelled)

# Import data
tt <- read_ods("datas/fitweb.ods", sheet = 1) |>
  janitor::clean_names() |>
  mutate(across(where(is.character), as.factor)) |>
  mutate(age = 2024 - anne_naissance) |>
  mutate(
    trajet = fct_relevel(
      trajet,
      "Moins de 10 min",
      "Entre 11 et 20 min",
      "Entre 21 et 30 min",
      "Entre 31 et 45 min",
      "Plus de 45 min"
    )
  ) |>
  mutate(across(ends_with("h_j"), ~ as.numeric(hms(.x)) / 60)) |>
  mutate(temps_assis =  as.numeric(hms(temps_assis)) / 60)

bnom <- c(
  "ID",
  "Année de naissance",
  "Sexe",
  "Temps de trajet",
  "Raison de l'adhésion",
  "Activités intenses",
  "Activités intenses",
  "Activités modérées",
  "Activités modérées",
  "Marche",
  "Marche",
  "Temps assis",
  "Âge"
)

var_label(tt) <- bnom
#
save(tt, file = "datas/fitw.RData")
load("datas/fitw.RData")


tt0 <- read_ods("datas/M0.ods", sheet = 1) |>
  janitor::clean_names() |>
  mutate(across(where(is.character), as.factor)) |>
  mutate(temps = "M0")

tt3 <- read_ods("datas/M3.ods", sheet = 1) |>
  janitor::clean_names() |>
  mutate(across(where(is.character), as.factor)) |>
  mutate(temps = "M3")

tt7 <- read_ods("datas/M7.ods", sheet = 1) |>
  janitor::clean_names() |>
  mutate(across(where(is.character), as.factor)) |>
  mutate(temps = "M7")
#
#---------------------------------
#

lyk <- function(df, n1, n2, lv) {
  df <- df |>
    mutate(across(n1:n2, ~ factor(.x, levels = lv))) |>
    mutate(across(n1:n2, ~ fct_relevel(.x, lv)))
  return(df)
}
#
#---------------------------------
#
lv1 <- c("très bon(ne)",
         "bon(ne)",
         "ni bon(ne), ni mauvais(e)",
         "mauvais(e)")
lv2 <- c(
  "tous les jours ou presque",
  "1 ou 2 fois par semaine",
  "1 ou 2 fois par mois",
  "1 ou 2 fois depuis 6 mois",
  "jamais depuis 6 mois"
)
lv3 <- c("en permanence", "souvent", "parfois", "rarement", "jamais")
lv4 <- c("très dur", "dur", "ni facile, ni dur", "facile", "très facile")
lv5 <- c(
  "largement insuffisantes",
  "plutôt insuffisantes",
  "adaptées",
  "plus importantes que nécessaire",
  "largement plus importantes que nécessaire"
)
lv6 <- c(
  "me contrarie fortement",
  "ne me convient pas" ,
  "je fais avec",
  "me convient",
  "contribue à mon épanouissement"
)
lv7 <- c("non",
         "pas du tout",
         "plutôt non",
         "ni oui",
         "ni non",
         "plutôt oui",
         "oui, tout à fait")
lvf <- c(
  "Très satisfait(e)",
  "Plutôt satisfait(e)",
  "Plutôt insatisfait(e)",
  "Très insatisfait(e)"
)
satin <-  rbind(tt0, tt3)
satin <- rbind(satin, tt7) |>
  lyk(n1 = 13, n2 = 16, lv = lv1) |>
  lyk(n1 = 18, n2 = 25, lv = lv2) |>
  lyk(n1 = 26, n2 = 28, lv = lv3) |>
  lyk(n1 = 29, n2 = 32, lv = lv4) |>
  lyk(n1 = 33, n2 = 36, lv = lv5) |>
  lyk(n1 = 37, n2 = 75, lv = lv6) |>
  lyk(n1 = 76, n2 = 77, lv = lv7)
#
#---------------------------------
#

final <- read_ods("datas/final.ods", sheet = 1) |>
  janitor::clean_names() |>
  mutate(across(where(is.character), as.factor)) |>
  lyk(n1 = 3, n2 = 14, lv = lvf)
#
bn <- read_ods("datas/nomsatin.ods", sheet = 1)
var_label(satin) <- bn$value
bn <- read_ods("datas/nomfinal.ods", sheet = 1)
var_label(final) <- bn$fn
# 

save(tt, satin, final, file = "datas/fitw.RData")
load("datas/fitw.RData")

Code

rm(list = ls())
#
library(baseph)
library(tidyverse)
library(gtsummary)
library(kableExtra)
library(apyramid)
library(labelled)
library(scales)
library(visdat)
library(GGally)
library(ggstats)
library(ggsci)
library(plotly)
library(tidytext)
library(readODS)
#
theme_gtsummary_language(language = "fr", decimal.mark = ",")
options(OutDec = ",")
#
load("datas/fitw.RData")
expx <- TRUE
nfic <- "fitw2.ods"
#
cat <- list(all_continuous() ~ "wilcox.test",
            all_categorical() ~ "chisq.test")
affl <- list(all_categorical() ~ "{n}/{N} ({p})")

Code

htht <- function(aa, exp, nomfich, nomsheet) {
    if (exp) {
      aa |>
        as_tibble() |>
        write_ods(path = nomfich, sheet = nomsheet, append = TRUE)
    } 
aa <- aa |>
bold_labels() |> 
as_kable_extra(addtl_fmt = FALSE, escape = TRUE) |>
kable_material(c("striped", "hover"))
return(aa)
}


likph <- function(df,nn, titre = ""){
xx <-  df |> 
  dplyr::select(nn) |> 
  ggstats::gglikert() +
  labs(title = titre) +
  theme_light() +
  scale_fill_jama() +
  theme(
    plot.title = element_text(size = 14, face = "bold"),
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
  axis.text.x = element_text(size = 10),
  axis.text.y = element_text(size = 10),
  legend.position = "bottom"
  )
ggplotly(xx) 
}

Investigateur Principal : Djeneba CAMARA

Chef de projet : Mathilde WLODARCZYK

Données démographiques

Code

tt |> 
  dplyr::select(age,sexe,trajet) |> 
  tbl_summary(type = list(age~"continuous")) |> 
   modify_header(label ~ " ") |>
  htht(exp = expx, nomfich = nfic , nomsheet = "demog")

Table 1: Données démographiques

	N = 10
Âge	43 (30 – 45)
Sexe
Féminin	6 (60%)
Masculin	4 (40%)
Temps de trajet
Moins de 10 min	1 (10%)
Entre 11 et 20 min	5 (50%)
Entre 21 et 30 min	1 (10%)
Entre 31 et 45 min	1 (10%)
Plus de 45 min	2 (20%)
¹ Médiane (Q1 – Q3); n (%)

Code

xx <- tt |> 
  mutate(age = cut(age,
  include.lowest = TRUE, c(20, 30, 40, 50, 60)))|> 
age_pyramid(age_group = age, split_by = sexe) +
  labs(title = "Pyramide des âges",
      x = "",
      y = "",
      caption = "",
      fill = "") +
  theme_light() +
  scale_fill_jama() +
  theme(
    plot.title = element_text(size = 14, face = "bold"),
    plot.subtitle = element_text(size = 12),
    axis.title.x = element_text(size = 12),
    legend.title = element_text(size = 12),
    axis.title.y = element_text(
      size = 12,
      angle = 0,
      vjust = .5
    ),
  axis.text.x = element_text(size = 12),
  axis.text.y = element_text(size = 12),
  legend.position = "right"
  )
ggplotly(xx)

Figure 1: Pyramide des âges

Activité physique

En jours par semaine

Code

tt |> 
  dplyr::select(ends_with("_j_sem"), "temps_assis") |>
  tbl_summary(type = list(temps_assis~"continuous")) |> 
    modify_header(label ~ "Jours/Semaine") |>
    bold_labels()|> 
  htht(exp = expx, nomfich = nfic , nomsheet = "actsem")  |> 
   scroll_box(width = "800px", height = "800px")

Table 2: Activité physique (Jours/semaine)

Jours/Semaine	N = 10
Activités intenses
0	1 (10%)
1	2 (20%)
2	4 (40%)
3	2 (20%)
4	1 (10%)
Activités modérées
0	2 (20%)
2	4 (40%)
3	1 (10%)
4	1 (10%)
7	2 (20%)
Marche
1	2 (20%)
2	2 (20%)
3	2 (20%)
7	4 (40%)
Temps assis	600 (360 – 1 440)
¹ n (%); Médiane (Q1 – Q3)

En heures par jour

Code

tt |> 
  dplyr::select(ends_with("_h_j")) |>
  tbl_summary(
    type = everything() ~ "continuous"
  ) |> 
    modify_header(label ~ "Minutes/Jour") |>
  htht(exp = expx, nomfich = nfic , nomsheet = "actjour")

Table 3: Activité physique par jour

Minutes/Jour	N = 10
Activités intenses	100 (60 – 180)
Activités modérées	150 (60 – 300)
Marche	60 (45 – 420)
¹ Médiane (Q1 – Q3)

Raisons de l’adhésion

Les réponses sont données par rapport au nombre total d’items notés en sachant qu’il peut y en avoir plusieurs pour chaque participant.

Code

zz <- tt|> 
  separate_rows(raison_adhesion, sep = ";") |> 
  mutate(raison_adhesion = factor(raison_adhesion)) |> 
  dplyr::filter(raison_adhesion != "") |> 
  mutate(raison_adhesion = fct_infreq(raison_adhesion)) |>
  mutate(raison_adhesion = fct_lump_n(raison_adhesion, 6, other_level = "Autres"))
var_label(zz$raison_adhesion) <- "Raison de l'adhésion"

zz |>
  dplyr::select(raison_adhesion) |> 
  tbl_summary() |>
  modify_header(label ~ "") |>
  htht(exp = expx, nomfich = nfic , nomsheet = "raison")

Table 4: Raisons de l’adhésion

	N = 77
Raison de l'adhésion
Pratiquer une activité physique en groupe	9 (12%)
Pratiquer une activité physique régulière	9 (12%)
Bienfaits sur la condition physique	8 (10%)
Evacuer le stress	8 (10%)
L'implication du personnel dans la création de la section	6 (7,8%)
Bénéfices sur le bien-être	5 (6,5%)
Me muscler	5 (6,5%)
Me sentir mieux dans mon corps	5 (6,5%)
Rencontrer de nouvelles personnes	5 (6,5%)
Autres	17 (22%)
¹ n (%)

Code

sat0 <- satin |> 
  dplyr::filter(temps == "M0")

ncas <- nrow(sat0)

L’étude porte sur 7 cas.

VOTRE SITUATION PERSONNELLE et PROFESSIONNELLE

Code

 sat0 |> 
  dplyr::select(sexe:anciennete_dans_le_poste_actuel) |> 
  tbl_summary() |> 
   modify_header(label ~ " ") |>
  htht(exp = expx, nomfich = nfic , nomsheet = "sat00init")

Table 5: Données démographiques

	N = 7
sexe
Féminin	5 (71%)
Masculin	2 (29%)
age
entre 25 et 34 ans	2 (29%)
entre 35 et 44 ans	4 (57%)
entre 45 et 54 ans	1 (14%)
categorie socioprofessionnelle
cadre	2 (29%)
employé(e) de bureau	3 (43%)
technicien(ne)	2 (29%)
ouvrier(e)	0 (0%)
assimilé(e) cadre	0 (0%)
horaires postes
autre type de poste	3 (43%)
non	4 (57%)
travail le week end
exceptionnellement	3 (43%)
jamais	2 (29%)
régulièrement	2 (29%)
travail la nuit
exceptionnellement	2 (29%)
jamais	3 (43%)
régulièrement	2 (29%)
horaires de travail non réguliers
exceptionnellement	1 (14%)
jamais	2 (29%)
presque toujours	1 (14%)
régulièrement	3 (43%)
horaires de travail non continus dans la journée
jamais	7 (100%)
exceptionnellement	0 (0%)
amplitude horaire
10h	1 (14%)
12h	2 (29%)
8h	1 (14%)
9h	3 (43%)
10,12,8	0 (0%)
anciennete dans l'entreprise
entre 1 et 5 ans	1 (14%)
entre 16 et 25 ans	2 (29%)
entre 6 et 15 ans	4 (57%)
26 ans et plus	0 (0%)
anciennete dans le poste actuel
entre 1 et 5 ans	3 (43%)
entre 6 et 15 ans	2 (29%)
moins d’un an	2 (29%)
¹ n (%)

Vous & votre santé

Code

 sat0 |> 
  dplyr::select(13:16) |> 
  tbl_likert() |> 
    modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat011")

Table 6: Vous & votre santé

	très bon(ne)	bon(ne)	ni bon(ne), ni mauvais(e)	mauvais(e)
je trouve que ma santé est globalement	0 (0%)	6 (86%)	1 (14%)	0 (0%)
je trouve que mon moral est globalement	0 (0%)	5 (71%)	2 (29%)	0 (0%)
ma confiance en l'avenir est globalement	0 (0%)	4 (57%)	2 (29%)	1 (14%)
par rapport à l'année derniere ma santé est	1 (14%)	4 (57%)	2 (29%)	0 (0%)

Code

likph(sat0, 13:16,"Vous & votre santé")

Figure 2: Vous & votre santé

Code

 sat0 |> 
  dplyr::select(17) |> 
  tbl_likert() |> 
    modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat012")

Table 7: Vous & votre santé

	oui, tout à fait	plutôt oui	ni oui, ni non
dans 2 ans ma santé devrait me permettre d'occuper le même poste qu’aujourd hui	5 (71%)	2 (29%)	0 (0%)

Code

likph(sat0, 17,"Vous & votre santé")

Figure 3: Vous & votre santé

Code

 sat0 |> 
  dplyr::select(18:25) |> 
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat013")

Table 8: Vous & votre santé

	tous les jours ou presque	1 ou 2 fois par semaine	1 ou 2 fois par mois	1 ou 2 fois depuis 6 mois	jamais depuis 6 mois
J'ai des difficultés à dormir	0 (0%)	1 (14%)	3 (43%)	1 (14%)	2 (29%)
J'ai des douleurs dans la poitrine	0 (0%)	0 (0%)	0 (0%)	0 (0%)	7 (100%)
J'ai des douleurs dans le dos ou dans le cou	0 (0%)	2 (29%)	1 (14%)	3 (43%)	1 (14%)
J'ai des douleurs dans les bras épaule coude poignet main	0 (0%)	1 (14%)	1 (14%)	2 (29%)	3 (43%)
J'ai des douleurs dans les jambes hanche genou cheville pied	0 (0%)	0 (0%)	2 (29%)	3 (43%)	2 (29%)
J'ai des maux de tête	1 (14%)	0 (0%)	3 (43%)	2 (29%)	1 (14%)
J'ai des problemes de digestion	0 (0%)	2 (29%)	1 (14%)	2 (29%)	2 (29%)
jai des douleurs quand je fais certains gestes ou dans certaines postures	0 (0%)	0 (0%)	3 (43%)	2 (29%)	2 (29%)

Code

likph(sat0, 18:25,"Vous & votre santé")

Figure 4: Vous & votre santé

Code

 sat0 |> 
  dplyr::select(26:28) |> 
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat014")

Table 9: Vous & votre santé

	souvent	parfois	rarement	jamais
je me sens lessivé par mon travail	2 (29%)	4 (57%)	1 (14%)	0 (0%)
je me sens stressé par mon travail	3 (43%)	4 (57%)	0 (0%)	0 (0%)
je sens que je craque à cause de mon travail	1 (14%)	2 (29%)	3 (43%)	1 (14%)

Code

likph(sat0, 26:28,"Vous & votre santé")

Figure 5: Vous & votre santé

Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS

Code

 sat0 |> 
  dplyr::select(29:32) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat021")

Table 10: Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS

	très dur	dur	ni facile, ni dur	facile	très facile
concernant les connaissances ou compétences que je dois utiliser	0 (0%)	4 (57%)	3 (43%)	0 (0%)	0 (0%)
concernant les efforts de réflexion ou d'attention que je dois fournir	0 (0%)	4 (57%)	3 (43%)	0 (0%)	0 (0%)
concernant les efforts physiques que je dois fournir	0 (0%)	1 (14%)	2 (29%)	2 (29%)	2 (29%)
concernant les efforts que je dois fournir pour contrôler mes émotions ne pas m’énerver ne pas craquer m’entendre avec les autres	1 (14%)	4 (57%)	2 (29%)	0 (0%)	0 (0%)

Code

likph(sat0, 29:32,"Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS")

Figure 6: Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS

Code

 sat0 |> 
  dplyr::select(33:36) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat022")

Table 11: Face aux exigeances de mon travail

	adaptées	plus importantes que nécessaire	largement plus importantes que nécessaire
mes capacites à contrôler mes emotions sont	7 (100%)	0 (0%)	0 (0%)
mes capacites de réflexion ou d'attention sont	6 (86%)	1 (14%)	0 (0%)
mes capacites physiques sont	5 (71%)	1 (14%)	1 (14%)
mes connaissances ou compétences sont	7 (100%)	0 (0%)	0 (0%)

Code

likph(sat0, 33:36,"Face aux exigeances de mon travail")

Figure 7: Face aux exigeances de mon travail

Les CARACTERISTIQUES de VOTRE ENVIRONNEMENT de TRAVAIL

Code

 sat0 |> 
  dplyr::select(37:42) |>
  tbl_likert() |> 
  modify_header(label ~ "Environnement physique") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "")

Table 12: Environnement physique

Environnement physique	ne me convient pas	je fais avec	me convient	contribue à mon épanouissement
globalement mon environnement physique de travail	0 (0%)	2 (29%)	5 (71%)	0 (0%)
l'aménagement des lieux ou je travaille	1 (14%)	3 (43%)	3 (43%)	0 (0%)
l'aspect general des lieux ou je travaille	2 (29%)	1 (14%)	3 (43%)	1 (14%)
la pris en compte des risques liés à mon travail	0 (0%)	4 (57%)	3 (43%)	0 (0%)
le materiel dont je dispose pour travailler adapté	0 (0%)	4 (57%)	3 (43%)	0 (0%)
les caractéristiques physiques de mon environnement de travail	1 (14%)	4 (57%)	2 (29%)	0 (0%)

Code

likph(sat0, 37:42, "Environnement physique")

Figure 8: Environnement physique

Code

 sat0 |> 
  dplyr::select(43:49) |>
  tbl_likert() |> 
  modify_header(label ~ "Cadrage de l’activité") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat032")

Table 13: Cadrage de l’activité

Cadrage de l’activité	ne me convient pas	je fais avec	me convient	contribue à mon épanouissement
globalement ce que je fais dans mon travail exigences varieté utilité	0 (0%)	1 (14%)	4 (57%)	2 (29%)
l'interêt que je trouve dans mon travail	1 (14%)	0 (0%)	3 (43%)	3 (43%)
l'utilité de ce que je fais	0 (0%)	1 (14%)	3 (43%)	3 (43%)
la diversité des contacts que mon travail entraine	0 (0%)	1 (14%)	3 (43%)	3 (43%)
la qualité des relations que J'ai avec les personnes exterieures à l'entreprise	0 (0%)	1 (14%)	4 (57%)	2 (29%)
la varieté de ce que je fais dans mon travail	0 (0%)	2 (29%)	4 (57%)	1 (14%)
les responsabilités qui me sont donnees	0 (0%)	2 (29%)	5 (71%)	0 (0%)

Code

likph(sat0, 43:49, "Cadrage de l’activité")

Figure 9: Cadrage de l’activité

Code

 sat0 |> 
  dplyr::select(50:62) |>
  tbl_likert() |> 
  modify_header(label ~ "Cadrage de l’activité") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat033")

Table 14: Cadrage de l’activité

Cadrage de l’activité	ne me convient pas	je fais avec	me convient	contribue à mon épanouissement
globalement le cadrage de mon activité	1 (14%)	3 (43%)	3 (43%)	0 (0%)
l'aide que je recois pour mener à bien mon travail	1 (14%)	3 (43%)	3 (43%)	0 (0%)
la clarté des informations que l'on me donne pour réaliser mon travail	0 (0%)	4 (57%)	3 (43%)	0 (0%)
la cohérence des informations précisant ce que l'on attend de moi	0 (0%)	3 (43%)	4 (57%)	0 (0%)
la coherence entre ce que je fais et la définition de mon poste	0 (0%)	2 (29%)	5 (71%)	0 (0%)
la liberté d'adapter mon rythme de travail	3 (43%)	1 (14%)	3 (43%)	0 (0%)
la liberté que J'ai dans la maniere de réaliser mon travail	0 (0%)	2 (29%)	4 (57%)	1 (14%)
la maniere dont l'equipe est dirigée	1 (14%)	5 (71%)	1 (14%)	0 (0%)
le soutien moral que je peux recevoir au travail	1 (14%)	2 (29%)	3 (43%)	1 (14%)
les deéais dont je dispose pour faire mon travail	2 (29%)	1 (14%)	4 (57%)	0 (0%)
les interruptions qui ont lieu dans mon travail	3 (43%)	4 (57%)	0 (0%)	0 (0%)
les liens de éependance de complementarité entre mon travail et celui des autres personnes	1 (14%)	1 (14%)	5 (71%)	0 (0%)
les possibilités de savoir si mon travail est de qualité ou non	1 (14%)	2 (29%)	4 (57%)	0 (0%)

Code

likph(sat0, 50:62, "Cadrage de l’activité")

Figure 10: Cadrage de l’activité

Code

 sat0 |> 
  dplyr::select(63:75) |>
  tbl_likert() |> 
  modify_header(label ~ "Contexte organisationnel") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat034")

Table 15: Contexte organisationnel

Contexte organisationnel	ne me convient pas	je fais avec	me convient	contribue à mon épanouissement
globalement le contexte organisationnel	2 (29%)	2 (29%)	3 (43%)	0 (0%)
l'ambiance qui règne dans l'entreprise	1 (14%)	2 (29%)	2 (29%)	2 (29%)
la communication de l'entreprise sur ses choix et ses objectifs	3 (43%)	2 (29%)	2 (29%)	0 (0%)
la manière dont je peux évoluer dans l'entreprise	1 (14%)	1 (14%)	4 (57%)	1 (14%)
la maniére dont les avis des personnes sont pris en compte dans l'entreprise	3 (43%)	1 (14%)	3 (43%)	0 (0%)
la manière dont les personnes sont traitées dans l'entreprise	3 (43%)	1 (14%)	3 (43%)	0 (0%)
le niveau de securité d'emploi dans l'entreprise	0 (0%)	1 (14%)	4 (57%)	2 (29%)
le nombre d'heures que je consacre à mon travail	1 (14%)	3 (43%)	3 (43%)	0 (0%)
les évolutions de l'entreprise et du secteur	2 (29%)	3 (43%)	2 (29%)	0 (0%)
les modalités d'évaluation de mon travail	1 (14%)	4 (57%)	2 (29%)	0 (0%)
les possibilités de développer mes compétences	1 (14%)	1 (14%)	4 (57%)	1 (14%)
ma rémuneration	1 (14%)	3 (43%)	2 (29%)	1 (14%)
mes horaires de travail	1 (14%)	3 (43%)	2 (29%)	1 (14%)

Code

likph(sat0, 63:75, "Contexte organisationnel")

Figure 11: Contexte organisationnel

VOTRE APPRÉCIATION GÉNÉRALE sur VOTRE TRAVAIL

Code

 sat0 |> 
  dplyr::select(76:77) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat041")

Table 16: Appréciation générale

	non	pas du tout	plutôt non	ni oui	ni non	plutôt oui	oui, tout à fait
globalement je me sens bien dans l'entreprise	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	4 (67%)	2 (33%)
J'aime mon travail	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (17%)	5 (83%)

Code

likph(sat0, 76:77, "Appréciation générale")

Figure 12: Appréciation générale

Code

sat7 <- satin |> 
  dplyr::filter(temps == "M7")

ncas <- nrow(sat7)

L’étude porte sur 6 cas. En raison du faible nombre de réponse aucun graphique n’est traçable.

Vous & votre santé

Code

 sat7 |> 
  dplyr::select(13:16) |> 
  tbl_likert() |> 
    modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat711")

Table 17: Vous & votre santé

	très bon(ne)	bon(ne)	ni bon(ne), ni mauvais(e)
je trouve que ma santé est globalement	1 (17%)	3 (50%)	2 (33%)
je trouve que mon moral est globalement	1 (17%)	3 (50%)	2 (33%)
ma confiance en l'avenir est globalement	1 (17%)	4 (67%)	1 (17%)
par rapport à l'année derniere ma santé est	3 (50%)	2 (33%)	1 (17%)

Code

 sat7 |> 
  dplyr::select(17) |> 
  tbl_likert() |> 
    modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat712")

Table 18: Vous & votre santé

	oui, tout à fait	plutôt oui	ni oui, ni non
dans 2 ans ma santé devrait me permettre d'occuper le même poste qu’aujourd hui	5 (83%)	1 (17%)	0 (0%)

Code

 sat7 |> 
  dplyr::select(18:25) |> 
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
    htht(exp = expx, nomfich = nfic , nomsheet = "sat713")

Table 19: Vous & votre santé

	tous les jours ou presque	1 ou 2 fois par semaine	1 ou 2 fois par mois	1 ou 2 fois depuis 6 mois	jamais depuis 6 mois
J'ai des difficultés à dormir	0 (0%)	1 (17%)	1 (17%)	2 (33%)	2 (33%)
J'ai des douleurs dans la poitrine	0 (0%)	0 (0%)	0 (0%)	1 (17%)	5 (83%)
J'ai des douleurs dans le dos ou dans le cou	1 (17%)	1 (17%)	0 (0%)	3 (50%)	1 (17%)
J'ai des douleurs dans les bras épaule coude poignet main	1 (17%)	1 (17%)	0 (0%)	1 (17%)	3 (50%)
J'ai des douleurs dans les jambes hanche genou cheville pied	0 (0%)	0 (0%)	1 (17%)	0 (0%)	5 (83%)
J'ai des maux de tête	0 (0%)	0 (0%)	1 (17%)	4 (67%)	1 (17%)
J'ai des problemes de digestion	1 (17%)	1 (17%)	0 (0%)	3 (50%)	1 (17%)
jai des douleurs quand je fais certains gestes ou dans certaines postures	0 (0%)	1 (17%)	0 (0%)	3 (50%)	2 (33%)

Code

 sat7 |> 
  dplyr::select(26:28) |> 
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat714")

Table 20: Vous & votre santé

	souvent	parfois	rarement	jamais
je me sens lessivé par mon travail	2 (33%)	2 (33%)	1 (17%)	1 (17%)
je me sens stressé par mon travail	2 (33%)	1 (17%)	2 (33%)	1 (17%)
je sens que je craque à cause de mon travail	0 (0%)	2 (33%)	2 (33%)	2 (33%)

Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS

Code

 sat7 |> 
  dplyr::select(29:32) |>
  tbl_likert() |> 
  modify_header(label ~ "Mon travail est") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat721")

Table 21: Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS

Mon travail est	très dur	dur	ni facile, ni dur	facile	très facile
concernant les connaissances ou compétences que je dois utiliser	0 (0%)	3 (50%)	3 (50%)	0 (0%)	0 (0%)
concernant les efforts de réflexion ou d'attention que je dois fournir	1 (17%)	3 (50%)	2 (33%)	0 (0%)	0 (0%)
concernant les efforts physiques que je dois fournir	0 (0%)	0 (0%)	2 (33%)	2 (33%)	2 (33%)
concernant les efforts que je dois fournir pour contrôler mes émotions ne pas m’énerver ne pas craquer m’entendre avec les autres	0 (0%)	1 (17%)	5 (83%)	0 (0%)	0 (0%)

Code

 sat7 |> 
  dplyr::select(33:36) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat722")

Table 22: Face aux exigeances de mon travail

	plutôt insuffisantes	adaptées	plus importantes que nécessaire	largement plus importantes que nécessaire
mes capacites à contrôler mes emotions sont	1 (17%)	4 (67%)	1 (17%)	0 (0%)
mes capacites de réflexion ou d'attention sont	0 (0%)	6 (100%)	0 (0%)	0 (0%)
mes capacites physiques sont	0 (0%)	5 (83%)	0 (0%)	1 (17%)
mes connaissances ou compétences sont	0 (0%)	6 (100%)	0 (0%)	0 (0%)

Les CARACTERISTIQUES de VOTRE ENVIRONNEMENT de TRAVAIL

Code

 sat7 |> 
  dplyr::select(37:42) |>
  tbl_likert() |> 
  modify_header(label ~ "Environnement physique") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat731")

Table 23: Environnement physique

Environnement physique	je fais avec	me convient	contribue à mon épanouissement
globalement mon environnement physique de travail	1 (17%)	5 (83%)	0 (0%)
l'aménagement des lieux ou je travaille	2 (33%)	4 (67%)	0 (0%)
l'aspect general des lieux ou je travaille	2 (33%)	3 (50%)	1 (17%)
la pris en compte des risques liés à mon travail	2 (33%)	4 (67%)	0 (0%)
le materiel dont je dispose pour travailler adapté	2 (33%)	4 (67%)	0 (0%)
les caractéristiques physiques de mon environnement de travail	3 (50%)	3 (50%)	0 (0%)

Code

 sat7 |> 
  dplyr::select(43:49) |>
  tbl_likert() |> 
  modify_header(label ~ "Cadrage de l’activité") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat732")

Table 24: Cadrage de l’activité

Cadrage de l’activité	me contrarie fortement	je fais avec	me convient	contribue à mon épanouissement
globalement ce que je fais dans mon travail exigences varieté utilité	0 (0%)	0 (0%)	3 (50%)	3 (50%)
l'interêt que je trouve dans mon travail	0 (0%)	0 (0%)	1 (17%)	5 (83%)
l'utilité de ce que je fais	0 (0%)	0 (0%)	2 (33%)	4 (67%)
la diversité des contacts que mon travail entraine	1 (17%)	0 (0%)	2 (33%)	3 (50%)
la qualité des relations que J'ai avec les personnes exterieures à l'entreprise	0 (0%)	1 (17%)	3 (50%)	2 (33%)
la varieté de ce que je fais dans mon travail	0 (0%)	0 (0%)	2 (33%)	4 (67%)
les responsabilités qui me sont donnees	0 (0%)	1 (17%)	5 (83%)	0 (0%)

Code

 sat7 |> 
  dplyr::select(50:62) |>
  tbl_likert() |> 
  modify_header(label ~ "Cadrage de l’activité") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat733")

Table 25: Cadrage de l’activité

Cadrage de l’activité	ne me convient pas	je fais avec	me convient	contribue à mon épanouissement
globalement le cadrage de mon activité	1 (17%)	3 (50%)	1 (17%)	1 (17%)
l'aide que je recois pour mener à bien mon travail	0 (0%)	2 (33%)	4 (67%)	0 (0%)
la clarté des informations que l'on me donne pour réaliser mon travail	0 (0%)	3 (50%)	3 (50%)	0 (0%)
la cohérence des informations précisant ce que l'on attend de moi	0 (0%)	3 (50%)	3 (50%)	0 (0%)
la coherence entre ce que je fais et la définition de mon poste	0 (0%)	2 (33%)	4 (67%)	0 (0%)
la liberté d'adapter mon rythme de travail	0 (0%)	1 (17%)	4 (67%)	1 (17%)
la liberté que J'ai dans la maniere de réaliser mon travail	0 (0%)	1 (17%)	4 (67%)	1 (17%)
la maniere dont l'equipe est dirigée	2 (33%)	3 (50%)	0 (0%)	1 (17%)
le soutien moral que je peux recevoir au travail	0 (0%)	1 (17%)	3 (50%)	2 (33%)
les deéais dont je dispose pour faire mon travail	0 (0%)	3 (50%)	3 (50%)	0 (0%)
les interruptions qui ont lieu dans mon travail	1 (17%)	5 (83%)	0 (0%)	0 (0%)
les liens de éependance de complementarité entre mon travail et celui des autres personnes	0 (0%)	0 (0%)	6 (100%)	0 (0%)
les possibilités de savoir si mon travail est de qualité ou non	1 (17%)	1 (17%)	3 (50%)	1 (17%)

Code

 sat7 |> 
  dplyr::select(63:75) |>
  tbl_likert() |> 
  modify_header(label ~ "Contexte organisationnel") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat734")

Table 26: Contexte organisationnel

Contexte organisationnel	ne me convient pas	je fais avec	me convient	contribue à mon épanouissement
globalement le contexte organisationnel	1 (17%)	1 (17%)	3 (50%)	1 (17%)
l'ambiance qui règne dans l'entreprise	1 (17%)	3 (50%)	2 (33%)	0 (0%)
la communication de l'entreprise sur ses choix et ses objectifs	1 (17%)	4 (67%)	0 (0%)	1 (17%)
la manière dont je peux évoluer dans l'entreprise	0 (0%)	1 (17%)	2 (33%)	3 (50%)
la maniére dont les avis des personnes sont pris en compte dans l'entreprise	2 (33%)	2 (33%)	2 (33%)	0 (0%)
la manière dont les personnes sont traitées dans l'entreprise	2 (33%)	2 (33%)	2 (33%)	0 (0%)
le niveau de securité d'emploi dans l'entreprise	0 (0%)	1 (17%)	2 (33%)	3 (50%)
le nombre d'heures que je consacre à mon travail	0 (0%)	1 (17%)	3 (50%)	2 (33%)
les évolutions de l'entreprise et du secteur	0 (0%)	1 (17%)	2 (33%)	3 (50%)
les modalités d'évaluation de mon travail	0 (0%)	3 (50%)	3 (50%)	0 (0%)
les possibilités de développer mes compétences	0 (0%)	1 (17%)	1 (17%)	4 (67%)
ma rémuneration	1 (17%)	2 (33%)	3 (50%)	0 (0%)
mes horaires de travail	0 (0%)	0 (0%)	4 (67%)	2 (33%)

VOTRE APPRÉCIATION GÉNÉRALE sur VOTRE TRAVAIL

Code

sat7 |> 
  dplyr::select(76:77) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat741")

Table 27: Appréciation générale

	non	pas du tout	plutôt non	ni oui	ni non	plutôt oui	oui, tout à fait
globalement je me sens bien dans l'entreprise	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	3 (50%)	3 (50%)
J'aime mon travail	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	3 (50%)	3 (50%)

Objectifs

Code

final |> 
  dplyr::select(3:14) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "final1") |> 
   scroll_box(width = "150%", height = "900px")

Table 28: Appréciation générale

	Très satisfait(e)	Plutôt satisfait(e)	Plutôt insatisfait(e)	Très insatisfait(e)
de l’accessibilité à la communication avec la section	4 (80%)	0 (0%)	0 (0%)	1 (20%)
de l accessibilité des lieux d’entrainement	4 (80%)	0 (0%)	0 (0%)	1 (20%)
de l’accessibilité du comité directeur de la section	4 (80%)	0 (0%)	0 (0%)	1 (20%)
de l’adaptation de l’intervenant a mon niveau	4 (80%)	0 (0%)	0 (0%)	1 (20%)
de la diversité des lieux d’entrainement	3 (60%)	1 (20%)	1 (20%)	0 (0%)
de la facilité de compréhension des consignes	4 (80%)	0 (0%)	0 (0%)	1 (20%)
de la fréquence de la communication de la section	4 (80%)	0 (0%)	0 (0%)	1 (20%)
des consignes données	4 (80%)	0 (0%)	0 (0%)	1 (20%)
des fréquences des séances	4 (80%)	0 (0%)	0 (0%)	1 (20%)
des horaires des séances	2 (40%)	2 (40%)	1 (20%)	0 (0%)
des jours des séances	3 (60%)	1 (20%)	0 (0%)	1 (20%)
des types de séances course a pied marche nordique renforcement musculaire	3 (60%)	1 (20%)	0 (0%)	1 (20%)

Code

final |> 
  dplyr::select(3:14) |>
  ggstats::gglikert()

Objectifs atteints

Les réponses sont données par rapport au nombre total d’items notés en sachant qu’il peut y en avoir plusieurs pour chaque participant.

Code

zz <- str_split(final$objectifs_atteints, ";")
zz <-  as.factor(unlist(zz))
zz <-   tibble(zz)
zz <- dplyr::filter(zz, zz != "") |>
  mutate(zz = factor(zz)) |>
  mutate(zz = fct_infreq(zz)) |>
  mutate(zz = fct_lump_n(zz, 6, other_level = "Autres"))
var_label(zz) <- "Objectifs atteints"
zz |>
  tbl_summary() |>
  modify_header(label ~ "") |>
  htht(exp = expx, nomfich = nfic , nomsheet = "final2")

Table 29: Objectifs atteints

	N = 25
Objectifs atteints
Bienfaits sur la condition physique	4 (16%)
Pratiquer une activité physique en groupe	4 (16%)
Pratiquer une activité physique régulière	4 (16%)
Me muscler	3 (12%)
Me sentir mieux dans mon corps	3 (12%)
Rencontrer de nouvelles personnes	3 (12%)
Autres	4 (16%)
¹ n (%)

Code

xx <- zz |> 
  ggplot() +
  aes(x = zz, fill = zz) +
  geom_bar(stat = "count") +
  labs(title = "Objectifs atteints",
      subtitle = "",
      x = "",
      y = "n") +
  theme_light() +
  scale_fill_jama() +
  theme(
    plot.title = element_text(size = 14, face = "bold"),
    plot.subtitle = element_text(size = 12),
    axis.title.x = element_blank(),
    legend.title = element_text(size = 12),
    axis.title.y = element_text(
      size = 12,
      angle = 0,
      vjust = .5
    ),
  axis.text.x = element_text(size = 12,            ,
      angle = 30,
      vjust = .5),
  axis.text.y = element_text(size = 12),
  legend.position = "none"
  ) +
  scale_x_discrete(labels = label_wrap(20))

ggplotly(xx)

Figure 14: Objectifs atteints

Réutilisation

MIT